From: Jim Blandy <jimb@redhat.com>
Date: Wed, 24 Mar 1993 01:46:10 +0000 (+0000)
Subject: * keyboard.c (Fsuspend_emacs):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96722
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1e95ed28db7059d9b6e2e30faa4988ed42b53245;p=emacs.git

* keyboard.c (Fsuspend_emacs):
	Change suspend-hooks back to suspend-hook and make it a normal hook.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 904257ad912..aa2a8503270 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4151,17 +4151,9 @@ On such systems, Emacs starts a subshell instead of suspending.")
   if (!NILP (stuffstring))
     CHECK_STRING (stuffstring, 0);
 
-  /* Run the functions in suspend-hooks.  */
-  tem = Fsymbol_value (intern ("suspend-hooks"));
-  while (CONSP (tem))
-    {
-      Lisp_Object val;
-      GCPRO2 (stuffstring, tem);
-      val = call0 (Fcar (tem));
-      UNGCPRO;
-      tem = Fcdr (tem);
-      if (!EQ (val, Qnil)) return Qnil;
-    }
+  /* Run the functions in suspend-hook.  */
+  if (!NILP (Vrun_hooks))
+    call1 (Vrun_hooks, intern ("suspend-hook"));
 
   GCPRO1 (stuffstring);
   get_frame_size (&old_width, &old_height);
@@ -4180,8 +4172,7 @@ On such systems, Emacs starts a subshell instead of suspending.")
   if (width != old_width || height != old_height)
     change_frame_size (0, height, width, 0, 0);
 
-  /* Call value of suspend-resume-hook
-     if it is bound and value is non-nil.  */
+  /* Run suspend-resume-hook.  */
   if (!NILP (Vrun_hooks))
     call1 (Vrun_hooks, intern ("suspend-resume-hook"));